﻿Imports ASAP.InterfazNegocio

Public Class usrInfoRonda

    Public Sub inicializa(ByVal estadRonda As Agente.EstadisticasRonda)

        Dim ht As New Dictionary(Of String, Decimal)
        ht.Add("Correctos", estadRonda.TotalCorrectas)
        ht.Add("Incorrectos", estadRonda.TotalIncorrectas)
        ht.Add("Pendientes", estadRonda.TotalPendientes)

        Dim porAcierto As Double = (estadRonda.TotalCorrectas) / (estadRonda.TotalCorrectas + estadRonda.TotalIncorrectas)

        tbRonda.Text = CStr(estadRonda.Ronda) & " (" & Math.Round(porAcierto * 100, 1) & "%)"
        tbCorrectos.Text = CStr(estadRonda.TotalCorrectas)
        tbIncorrectos.Text = CStr(estadRonda.TotalIncorrectas)
        tbPendientes.Text = CStr(estadRonda.TotalPendientes)

        Me.UsrPastis1.inicialitza(ht)
    End Sub

End Class
